---
title: "Text_meta_analysis"
author: "Jose S. Gomez"
date: "4/8/2019"
output: html_document
---


```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

#setup clean working environment, packages and data
```{r}
rm(list=ls())       # clear objects in memory
setwd("/Users/jge/Dropbox/GOTV IV (Andrew, Jose, Don)/Working Data/") # set working directory on Mac
#setwd("C:/Users/joses/Dropbox/GOTV IV (Andrew, Jose, Don)/Working Data/") # set working directory on Windows
library(foreign) 
library(metafor) # meta-analysis package

text_data <- read.csv("GOTV IV Text Messaging (collapsed).csv")
```

Meta analysis code:
```{r}
#Overall text messaging effects
rma(yi = Meta_b, 
    sei= Meta_SE, 
    method = "DL", 
    data = text_data)
```